home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 November & December / Amiga-CD 1997 #11-12.iso / pd-disketten / ungepackt / 9_95 / apd-9-95-2 / arexx-workshop / listings / listing2 < prev    next >
Text File  |  1996-01-25  |  905b  |  21 lines
  1. /* Unterprogramm asl_file_request ----------------------------- */
  2. /* Aufruf: datei = asl_file_request(titel,dir,suchmuster)       */
  3. /* Zurückgegeben wird der Name der Datei inklusive Pfad oder    */
  4. /* null(), falls keine Datei oder Cancel gewählt wurde.         */
  5.  
  6. asl_file_request:  PROCEDURE         /* Deklaration d. Routine  */
  7.   parse arg title,dir,filepattern   /* Parameterübername        */
  8.  
  9.   top  = 0;   lft = 0               /* Fensterausmaße festlegen */
  10.   wdt  = 200; hgt  = 212
  11.   freq = ALLOCFILEREQUEST()         /* Struktur allozieren      */
  12.  
  13.   /* Requester auf den Schirm ! */
  14.   file = REQUESTFILE(freq,lft,top,title,dir,filepattern,
  15.                      ,0,0,0,-10,-2,wdt,hgt,0)
  16.  
  17.   call FREEFILEREQUEST(freq)  /* allozierten Speicher freigeben */
  18.  
  19. echo file                     /* Zur Kontrolle ausgeben (Test)  */
  20. return file                   /* Dateinamen zurückliefern       */
  21.